home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / prg_basi / ddfedit.zip / DDFGETP.FRM < prev    next >
Text File  |  1996-02-04  |  3KB  |  101 lines
  1. VERSION 2.00
  2. Begin Form FormGetPath 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    ClientHeight    =   2730
  6.    ClientLeft      =   1065
  7.    ClientTop       =   1350
  8.    ClientWidth     =   4080
  9.    ControlBox      =   0   'False
  10.    Height          =   3135
  11.    Left            =   1005
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2730
  16.    ScaleWidth      =   4080
  17.    Top             =   1005
  18.    Width           =   4200
  19.    Begin CommandButton butOK 
  20.       Caption         =   "OK"
  21.       Default         =   -1  'True
  22.       Height          =   330
  23.       Left            =   2880
  24.       TabIndex        =   5
  25.       Top             =   1800
  26.       Width           =   1140
  27.    End
  28.    Begin CommandButton ButCan 
  29.       Cancel          =   -1  'True
  30.       Caption         =   "Cancel"
  31.       Height          =   330
  32.       Left            =   2880
  33.       TabIndex        =   4
  34.       Top             =   2250
  35.       Width           =   1140
  36.    End
  37.    Begin SSPanel Panel3D2 
  38.       AutoSize        =   3  'AutoSize Child To Panel
  39.       BevelInner      =   1  'Inset
  40.       BevelOuter      =   0  'None
  41.       BorderWidth     =   1
  42.       Caption         =   "Panel3D1"
  43.       Height          =   375
  44.       Left            =   45
  45.       TabIndex        =   1
  46.       Top             =   45
  47.       Width           =   2760
  48.       Begin DriveListBox Drive1 
  49.          Height          =   315
  50.          Left            =   30
  51.          TabIndex        =   2
  52.          Top             =   30
  53.          Width           =   2700
  54.       End
  55.    End
  56.    Begin SSPanel Panel3D1 
  57.       AutoSize        =   3  'AutoSize Child To Panel
  58.       BevelInner      =   1  'Inset
  59.       BevelOuter      =   0  'None
  60.       BorderWidth     =   1
  61.       Caption         =   "Panel3D1"
  62.       Height          =   2115
  63.       Left            =   45
  64.       TabIndex        =   0
  65.       Top             =   495
  66.       Width           =   2760
  67.       Begin DirListBox Dir1 
  68.          Height          =   2055
  69.          Left            =   30
  70.          TabIndex        =   3
  71.          Top             =   30
  72.          Width           =   2700
  73.       End
  74.    End
  75. End
  76. Option Explicit
  77.  
  78. Sub butcan_Click ()
  79.   NewDictPath = ""
  80.   Unload Me
  81. End Sub
  82.  
  83. Sub ButOk_Click ()
  84.   
  85.   NewDictPath = Dir1.Path
  86.   If Right(NewDictPath, 1) <> "\" Then
  87.     NewDictPath = NewDictPath & "\"
  88.   End If
  89.   Unload Me
  90. End Sub
  91.  
  92. Sub Drive1_Change ()
  93.   Dir1.Path = Drive1.Drive
  94. End Sub
  95.  
  96. Sub Form_Load ()
  97.   left = (screen.Width - Width) / 2
  98.   top = (screen.Height - Height) / 2
  99. End Sub
  100.  
  101.